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;; SAMPLE EXPERT RULE FOR PRESETTING A SET OF USER-DEFINED AND 
; /ENVIRONMENT PARAMETERS 

define Mobil (user user_age user_language user_sex middle_age 
user_card user_zip) 



( 



(age 



(cond 



) 



( (< user__age 13) child) 

( (< user_age 20) teen) 

( (< user_age 35) young) 

( (< user_age 60) middle) 

( (< user_age 85) senior) 
(t elderly) 



) 

(weather (getenv (weather user_zip) ) ) 
(temperature (getenv (temperature user_zip) ) ) 
(language user_language) 
(sex user_sex) 
(category 

(cond 



35 



German) (equal user_sex Male) 

user_age 35) ) A) 
user_age 35) ) C) 

) 

) 



( (and (equal user_language 
(< user__age 35) ) F) 

( (equal user_card amex) E) 
((equal user^card mobil) D) 
( (and (equal user_sex Male) 



(< 



( (and (equal user_sex Female) 
(t B) 



(> 



40 ; ; ; ; SAMPLE EXPERT CODE WHICH DEFINES A PLAYLIST 
(la vol) /load audio source 

(aap 1 (BLACK . 36));aap is apend audio playlist 

(aap 1 ( (VOl . "16:29:42;13" ) . 853)) 

(aap 1 (BLACK . 11) ) 
45 (la TechnoAl) 

(aap 0 ((TechnoAl . " 16 : 01 : 05 ; 23 " ) .892)) 

(aap 0 (BLACK . 8) ) 

(Is Kj) 

(Is KeyFinal) 
50 (Is Kaa) 

(Is Ku) 

;;ap is append playlist, parameters are a video segment, pulled 
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;;by reference index, and a length value, measured in frames 





(ap 


( (Kj . "16: 


52: 54; 20" ) 


40) ) 








(ap 


( (KeyFinal 


. "00:00:14;21" 


) 


16)) 






(ap 


( (KeyFinal 


. "00: 00: 15; 25" 


) 


3) ) 




5 


(ap 


( (KeyFinal 


. "00: 00: 15; 10" 


) 


3) ) 






(ap 


( (KeyFinal 


. "00: 00: 15; 25" 


) 


3) ) 






(ap 


( (KeyFinal 


. "00: 00: 15; 16" 


) 


3) ) 






(ap 


( (KeyFinal 


. "00: 00: 15; 25" 


) 


3) ) 






(ap 


( (KeyFinal 


. "00: 00: 15; 22" 


) 


28) ) 




10 


(ap 


( (KeyFinal 


. "00: 00: 17; 13" 


) 


5) ) 






(ap 


( (KeyFinal 


. "00: 00: 16; 25" 


) 


147)) 






(ap 


( (KeyFinal 


. "00: 00: 17; 13" 


) 


5) ) 






(ap 


((Kaa . "18 


:12:38;19" ) 


6)) 








(ap 


((Kaa . "18 


:12:39;09" ) 


6)) 






15 


(ap 


((Kaa . "18 


:12:39;29" ) 


6)) 








(ap 


((Kaa . "18 


:12:40;19" ) 


6)) 








(ap 


((Kaa . "18 


:12:41;09" ) 


7)) 








(ap 


( (KeyFinal 


. "00: 00: 22; 28" 


) . 


61)) 






(ap 


( (Ku . "17: 


41: 24; 29" ) 


4) ) 






20 


(ap 


( (Ku . "17: 


41: 25; 13" ) 


4) ) 








(ap 


( (Ku . "17: 


41:25;27" ) 


4) ) 








(ap 


( (Ku . "17: 


41: 26; 11" ) 


4) ) 








(ap 


( (Ku . "17: 


41: 26; 25" ) 


4) ) 








(ap 


( (Ku . "17: 


41:27;09" ) 


4) ) 






f 25 


(ap 


((Ku . "17: 


41: 27; 23" ) 


4) ) 








(ap 


( (Ku . "17: 


41: 28; 07" ) 


4) ) 








(ap 


( (KeyFinal 


. "00 : 00 : 26; 01" 


) . 


37) ) 




'■ V 


(ap 


( (KeyFinal 


. "00:00 : 26; 17" 


) . 


11) ) 






(ap 


( (KeyFinal 


. "00 : 00 : 27; 22" 


) . 


108) ) 




^ 30 


(ap 


( (KeyFinal 


. "00:00 : 32; 16" 


) . 


8) ) 




:3 


(ap 


( (KeyFinal 


. "00: 00: 32; 16" 


) . 


20) ) 






(ap 


( (KeyFinal 


. "00: 00: 32; 16" 


) . 


8) ) 






(ap 


( (KeyFinal 


. "00: 00: 32; 16" 


) . 


325) ) 






(ap 


(BLACK . 3)) 








13 35 


(at 


0 (text "Visible World" 0.1 


0 .20 


35 "Courier" 0.0 0. 


5 0.5) 




60) ; 


at is apply 


text, for text 


graphics 






(at 


0 (text "527W, 34th street" 


0.1 


0.35 40 "Courier" 0. 


0 0.5 




0.5) 


60) 












(at 


0 (text "New 


York, NY 10001 


" 0.1 


0.50 4 0 "Courier" 0 


.0 0.5 


40 


0.5) 


60) 












(at 


0 (text "www 


.visibleworld.com" 0 


.1 0.65 40 "Courier" 


0.0 0 




0.5) 


60) 











(at 


60 


(text 


"Prepared for:" 


0 . 1 


0.2 0 40 "Courier" 


0 


.0 0.5 0 


5) 


60) 


















(at 


60 


(text 


"Sonam" 0.1 0.35 


40 


"Courier" 0.0 0.5 


0 


.5) 60) 




(at 


60 


(text 


"English" 0.1 0. 


5 40 


"Courier" 0.0 0. 


5 


0.5) 60) 




(at 


60 


(text 


"Date:0l/l9/00" 


0.1 


0.65 4 0 "Courier" 


0 


.0 0.5 0 


5) 


60) 


















(at 


60 


(text 


"Time: 15: 52 :10" 


0 . 1 


0.80 40 "Courier" 


0 


.0 0.5 0 


5) 



50 60) 
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